#!/usr/bin/perl -w # useful for syntax highlighting

package clreqd_modules;

use clutils qw(nextnode);

# Here we are passed the name of the application and we
# return the value from the nextnode function...

sub get_next_node {
my %ARGS=@_;

	my ($node,$err)=nextnode($ARGS{APPLICATION});
	if($err) {
		return "FAIL $err";
	}
	return "OK $node";
}

1;

